home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Unreleased
/
(c)d18.d64
/
muppet twist
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-11
|
1KB
|
51 lines
9 IFA>0THEN220
10 PRINT"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
11 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
12 PRINT" [154]THIS PROGRAM COULD NOT TELL WHAT DRIVE"
13 PRINT" TO LOAD THE FILES FROM ! "
14 PRINT" -: ]>UG"
15 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
16 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
20 PRINT"[151] NOW IT CAN HIT ANY KEY.....[129]"
90 DV=PEEK(186)
100 IFA>0THEN220
110 POKE53280,0:POKE53281,0
120 PRINT"[145][145][145] 'MUPPET TWIST' MINI MOVIE BY KOVARSKI"
130 PRINT" MUSIC: TWIST AGAIN "
140 PRINT" SHORT INSTRUCTIONS-"
150 PRINT" PRESS 'S' TO SLOW DOWN MOVIE"
160 PRINT" PRESS 'F' TO SPEED UP MOVIE"
170 PRINT" (YOU MAY HAVE TO PRESS THEM"
180 PRINT" REPEATEDLY TO CHANGE SPEED)
190 [153]" PRESS RUN/STOP & RESTORE TO QUIT
200 PRINT" PLEASE WAIT (7 FILES TO LOAD)..."
210 S$=" LOADING FILE NUMBER "
220 REM
230 ONAGOTO250,260,270,280,290,300,370
240 A=A+1:PRINTS$;"1,";:LOAD"TWIST",DV,1
250 A=A+1:PRINT"2,";:LOAD"M1",DV,1
260 A=A+1:PRINT"3,";:LOAD"M2",DV,1
270 A=A+1:PRINT"4,";:LOAD"M3",DV,1
280 A=A+1:PRINT"5,";:LOAD"M6",DV,1
290 A=A+1:PRINT"6," :LOAD"M5",DV,1
300 PRINT" ALMOST DONE! "
310 PRINT" THE NEXT FILE WILL OVERWRITE TEXT "
320 PRINT" PRESS ANY KEY TO CONTINUE [145]":FOR I=1 TO 200: NEXT
330 PRINT" [146] PRESS ANY KEY TO CONTINUE [145]":FOR I=1 TO 200: NEXT
340 GETA$:IFA$="" THEN320
350 PRINT"[147]"
360 A=A+1:LOAD"M4",DV,1
370 REM
380 SYS 20480: REM START MUSIC
390 POKE53265,59:POKE53272,29
400 PRINT""
410 D=-1:K=6
420 P=199
430 POKE56576,P
440 FORA=1TOK
450 GETQ$:IFQ$="F"THENK=K-1:GOTO450
460 IFQ$="S"THENK=K+1
470 NEXT
480 P=P+D:IF(P<197)OR(P>199)THEND=-D:GOTO480
490 GOTO430